home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlIpAddressDelete.au3 < prev    next >
Text File  |  2007-09-08  |  658b  |  28 lines
  1. #include <GuiIPAddress.au3>
  2.  
  3. Opt("MustDeclareVars", 1)
  4.  
  5. _Main()
  6.  
  7. Func _Main()
  8.     Local $msg, $hgui, $button, $hIPAddress, $btn_Delete
  9.     
  10.     $hgui = GUICreate("IP Address Delete Control Example", 300, 150)
  11.     
  12.     $hIPAddress = _GUICtrlIpAddressCreate ($hgui, 10, 10, 125, 30, $WS_THICKFRAME)
  13.     $btn_Delete = GUICtrlCreateButton("Delete",10,100,100,25)
  14.     $button = GUICtrlCreateButton("Exit", 150, 100, 100, 25)
  15.     GUISetState(@SW_SHOW)
  16.     
  17.     While 1
  18.         $msg = GUIGetMsg()
  19.         
  20.         Select
  21.             Case $msg = $GUI_EVENT_CLOSE Or $msg = $button
  22.                 Exit
  23.             Case $msg = $btn_Delete
  24.                 _GUICtrlIpAddressDelete($hIPAddress)
  25.         EndSelect
  26.     WEnd
  27. EndFunc   ;==>_Main
  28.